home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / btest.f < prev    next >
Text File  |  1992-07-31  |  109b  |  5 lines
  1.       logical function btest(n,i)
  2.       btest = .false.
  3.       if(itbit(n,i+1).ne.0) btest = .true.
  4.       end
  5.